home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Herois / Codigo.Cst / 00010_FrameFilmes.ls < prev    next >
Encoding:
Text File  |  1999-03-19  |  1.0 KB  |  48 lines
  1. property frameVolta
  2.  
  3. on exitFrame
  4.   go the frame
  5. end
  6.  
  7. on getBehaivorDescription
  8.   return "Pause na saida do frame, chamando #idleSprite para todos sprites durante #idle"
  9. end
  10. on getPropertyDescriptionList
  11.   set p_list = [ ┬¼
  12.     #frameVolta: [ #comment:   "Frame para onde voltar", ┬¼
  13.                     #format:   #string, ┬¼
  14.                    #default:   "" ] ┬¼
  15.   ]
  16.   return p_list
  17. end
  18.  
  19. on mouseUp
  20.   go the frame + 1
  21. end
  22.  
  23. on enterFrame
  24.   if the frame = marker(0) then
  25.     if the movieRate of sprite 1 = 0 then
  26.       set the visibility of sprite 2 to true
  27.       set the visibility of sprite 1 to false
  28.     else 
  29.       set the visibility of sprite 2 to false
  30.       set the visibility of sprite 1 to true
  31.     end if
  32.   else
  33.     global gVisibilidade
  34.     repeat with i = 97 to 120
  35.       set the visibility of sprite i to getAt(gVisibilidade, i-96)
  36.     end repeat
  37.     
  38.     set the visibility of sprite 1 to true
  39.     set the visibility of sprite 2 to true
  40.     
  41.     global gDonde, gPronde
  42.     set gDonde = 0
  43.     set gPronde = 1
  44.     go frame frameVolta
  45.   end if
  46. end
  47.  
  48.